Voorbeeld van de functie SYD

Dit voorbeeld laat zien hoe de functie SYD wordt gebruikt om de afschrijving te geven van een creditpost voor een bepaalde periode op basis van de beginkosten van de creditpost (InitCost), de restwaarde van de creditpost aan het einde van de nuttige levensduur (SalvageVal) en de totale levensduur van de creditpost in jaren (LifeTime). De periode uitgedrukt in jaren waarover de afschrijving wordt berekend, is PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDepr
Const YEARMONTHS = 12    ' Aantal maanden in een jaar.
Fmt = "###.##0,00"    ' Definieer valutanotatie.
InitCost = InputBox("Wat zijn de beginkosten van de creditpost?")
SalvageVal = InputBox("Wat is de waarde van de creditpost aan het einde van de levensduur?")
MonthLife = InputBox("Wat is de nuttige levensduur van de creditpost in maanden?")
Do While MonthLife < YEARMONTHS    ' Zorg ervoor dat de periode >= 1 jaar is.
    MsgBox "Levensduur creditpost moet een jaar of langer zijn."
    MonthLife = InputBox("Wat is de nuttige levensduur van de creditpost in maanden?")
Loop
LifeTime = MonthLife / YEARMONTHS    ' Converteer maanden in jaren.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)    ' Rond af naar meest nabije jaar.
End If
DepYear = CInt(InputBox("Voor welk jaar wilt u afschrijving?"))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "U moet ten minste 1 invoeren maar niet meer dan " & LifeTime
    DepYear = CInt(InputBox("Voor welk jaar wilt u afschrijving?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "De afschrijving voor het jaar " & DepYear & " is " & Format(PDepr, Fmt) & "."